home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / local.e < prev    next >
Encoding:
Text File  |  1995-12-27  |  656 b   |  40 lines
  1.  
  2. OPT MODULE
  3. OPT EXPORT
  4.  
  5. -> Eiffel local entities
  6.  
  7. -> Copyright (c) 1995, Guichard Damien.
  8.  
  9. MODULE '*treed_entity'
  10. MODULE '*strings'
  11. MODULE '*class'
  12. MODULE '*ame'
  13.  
  14. OBJECT local OF treed_entity
  15.   count:INT
  16. ENDOBJECT
  17.  
  18. -> Create a local variable.
  19. PROC create(name) OF local
  20.   self.int:=hash(name)
  21.   self.name:=clone(name)
  22. ENDPROC
  23.  
  24. -> Set local variable type.
  25. PROC set_type(type) OF local
  26.   self.type:=type
  27. ENDPROC
  28.  
  29. -> Set count of the local (used only by procedure)
  30. PROC set_count(count) OF local
  31.   self.count:=count
  32. ENDPROC
  33.  
  34. -> Local value access mode
  35. PROC access() OF local IS M_LOCAL
  36.  
  37. -> Index for access to local value
  38. PROC index() OF local IS self.count
  39.  
  40.